# BillNames.R
# Data.table of bill names.

.billNames <- function() {
  data.table(roll = c("<b>Allow a Vote on Banning Federal Funding for Planned Parenthood</b>: Support a motion to end debate and allow a final vote on a bill that would prevent any federal money from going to Planned Parenthood.",   "<b>Allow a Vote on Banning Federal Funding for Planned Parenthood</b>: Support a motion to end debate and allow a final vote on a bill that would prevent any federal money from going to Planned Parenthood.  <b><u>96</u></b>% of Republicans vote",   "<b>Allow a Vote on Changing the Standard for Determining Gender Discrimination in the Workplace</b>: Support a motion to end debate and allow a final vote on a bill that would require employers to show that any wage gaps between men and women w",   "<b>Allow a Vote on Funding Transportation and Urban Development</b>: Support a motion to end debate and allow a final vote on a bill that would fund at a level of $54 billion for one year Transportation and Housing and Urban Development.",   "<b>Allow a Vote on Funding Transportation and Urban Development</b>: Support a motion to end debate and allow a final vote on a bill that would fund at a level of $54 billion for one year Transportation and Housing and Urban Development. <b><u>",   "<b>Approve 2015 Budget and Fund Government for 2015</b>: Agree to a measure that would fund almost all federal government agencies for fiscal year 2015.",   "<b>Approve 2015 Budget and Fund Government for 2015</b>: Agree to a measure that would fund almost all federal government agencies for fiscal year 2015. <b><u>57</u></b>% of Republicans voted in favor of the bill, and <b><u>60</u></b>% of Democ",   "<b>Approve Keystone XL Pipeline</b>: Allow TransCanada to construct the 1,179-mile Keystone XL pipeline that would carry oil from Canada�s tar sands to refineries in Texas.",   "<b>Approve Keystone XL Pipeline</b>: Allow TransCanada to construct the 1,179-mile Keystone XL pipeline that would carry oil from Canada�s tar sands to refineries in Texas. <b><u>100</u></b>% of Republicans voted in favor of the bill, and <b>",   "<b>End Government Shutdown and Raise Government Debt Limit</b>: End the government shutdown of October 2013 by funding the government for three months and also allowing it to borrow money.",   "<b>End Government Shutdown and Raise Government Debt Limit</b>: End the government shutdown of October 2013 by funding the government for three months and also allowing it to borrow money. <b><u>60</u></b>% of Republicans voted in favor of the ",   "<b>Expand Existing Background Checks for Firearm Sales</b>: Require federal background checks for gun sales that take place at gun shows or via the internet, the same requirement that exists for sales from regular brick and mortar gun stores.",   "<b>Expand Existing Background Checks for Firearm Sales</b>: Require federal background checks for gun sales that take place at gun shows or via the internet, the same requirement that exists for sales from regular brick and mortar gun stores. <",   "<b>Extend Federal Unemployment Benefits</b>: Extend existing federal unemployment benefits for a minimum of an additional 5 months.",   "<b>Extend Federal Unemployment Benefits</b>: Extend existing federal unemployment benefits for a minimum of an additional 5 months. <b><u>14</u></b>% of Republicans voted in favor of the bill, and <b><u>100</u></b>% of Democrats voted in favor ",   "<b>Pass the FAST Act and Extend the Export-Import Bank</b>: Authorize 6 years of federal spending on highways and other transit programs and extend programs to use federal funds to finance and insure foreign purchases of American goods.",   "<b>Pass the FAST Act and Extend the Export-Import Bank</b>: Authorize 6 years of federal spending on highways and other transit programs and extend programs to use federal funds to finance and insure foreign purchases of American goods. <b><u>7",   "<b>Repeal ObamaCare</b>: Repeal the Affordable Care Act health care program by removing the federal health insurance requirement, eliminating associated taxes, and eliminating federal subsidies for low-income individuals to purchase insurance. ",   "<b>Revise Medicare Physician Payment Rates and Reauthorize Child Health Insurance Program</b>: Change the rules used to calculate physician payments so that doctors who see Medicare patients did not experience large drops in the amount the gove",   "<b>Set Federal Student Loan Interest Rates</b>: Set federal student loan interest rates, raising rates relative to recent rates but decreasing them compared to the rates that were in force because an old law had expired.",   "<b>Set Federal Student Loan Interest Rates</b>: Set federal student loan interest rates, raising rates relative to recent rates but decreasing them compared to the rates that were in force because an old law had expired. <b><u>98</u></b>% of Re"
  ), short = c("Defund Planned Parenthood", "Defund Planned Parenthood", "Gender Discrimination", "Transport Urban Devel Fund", "Transport Urban Devel Fund", "Budget 2015", "Budget 2015", "Keystone Pipeline", "Keystone Pipeline", "End Shutdown Raise Debt Limit", "End Shutdown Raise Debt Limit", "Firearm Background Checks", "Firearm Background Checks", "Extend Unemployment Benefits", "Extend Unemployment Benefits", "Highway Funding and Ex-Im Bank", "Highway Funding and Ex-Im Bank", "Repeal Obamacare", "Medicare Pay and SCHIP", "Student Loan Interest Rates", "Student Loan Interest Rates"), real.short = c("pln.prnt", "pln.prnt", "gndr.discrim", "trnsprt", "trnsprt", "budget15", "budget15", "keystone", "keystone", "end.shtdn", "end.shtdn", "bkrnd.chk", "bkrnd.chk", "unemp", "unemp", "hiway.exim", "hiway.exim", "rpl.aca", "medic.schip", "stdn.ln", "stdn.ln"))
}

.billVotes <- function() {
  data.table(short=c("Defund Planned Parenthood",  "Gender Discrimination", "Transport Urban Devel Fund", "Budget 2015", "Keystone Pipeline", "End Shutdown Raise Debt Limit", "Firearm Background Checks", "Extend Unemployment Benefits", "Highway Funding and Ex-Im Bank", "Repeal Obamacare", "Medicare Pay and SCHIP", "Student Loan Interest Rates"),
  pdem.yea=c(.05,1,1,.6,.21,1,.91,1,.57,0,1,.69),
  prep.yea=c(1,0,0,.6,1,.6,.1,.1,.7,1,.9,1))
}
